PROGRAM celcius
IMPLICIT NONE
REAL :: c,f,k
PRINT *,'Enter temperature in Farenheit'
READ *,f
c=5*(f-32)/9
k=c+273
PRINT *,'Temperature in Celcius=',c
PRINT *,'Temperature in Kelvin=',k
END PROGRAM

